-- mirrored_frame.lua

FrameSize = 30

function InsideFrame(x,y)
  if (x > FrameSize) and (x < width-FrameSize-1) and
     (y > FrameSize) and (y < height-FrameSize-1) then
    return 1
  else
    return 0
  end
end

for y=0, height-1 do
  for x=0, width-1 do
    if InsideFrame(x,y) == 0 then
      r,g,b,a = get_rgba(width-x-1,height-y-1)
    else
      r,g,b,a = get_rgba(x,y)
    end
    set_rgba(x,y,r,g,b,a)
  end
  progress (y/height)
end
